home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesgraf1.s < prev    next >
Text File  |  1990-11-23  |  2KB  |  53 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Graphics Library routines 1 of 5.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; graf_rubberbox
  18. ;-------------------------------------------------------------------------
  19.  
  20. _graf_rubberbox::
  21.           .cargs    #8,.mx,.my,.mw,.mh,.pw.l,.ph.l
  22.           link      a6,#-6
  23.           
  24.           AControl  70,4,3,0
  25.  
  26.           moveq.l   #-6,d2              ;  = intout        
  27.           lea       .mx(a6),a1          ; -> intin
  28.           ACall     RET2HERE
  29.  
  30.           moveq.l   #-6,d1
  31.           lea       .pw(a6),a1
  32.           jmp       (a0)
  33.           
  34. ;-------------------------------------------------------------------------
  35. ; graf_dragbox
  36. ;-------------------------------------------------------------------------
  37.  
  38. _graf_dragbox::
  39.           .cargs    #8,.sw,.sh,.sx,.sy,.bx,.by,.bw,.bh,.px.l,.py.l
  40.           link      a6,#-6
  41.           AControl  71,8,3,0
  42.           
  43.           moveq.l   #-6,d2              ;  = intout
  44.           lea       .sw(a6),a1          ; -> intin
  45.           ACall     RET2HERE
  46.  
  47.           moveq.l   #-6,d1
  48.           lea       .px(a6),a1
  49.           jmp       (a0)
  50.  
  51. ;         end of code
  52.  
  53.